home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #1 / Ham Radio 2000.iso / ham2000 / packet / p_aa4re / bb212src / bbmf2a.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-12-25  |  1.4 KB  |  42 lines
  1. (*===========================================================================*)
  2. (* Miscellaneous subroutines for message add                                 *)
  3. (*                                                                           *)
  4. (*   Copyright 1988, 1989, 1991 by H. Roy Engehausen.  All rights reserved.  *)
  5. (*                                                                           *)
  6. (*===========================================================================*)
  7.  
  8. (*===========================================================================*)
  9. (* Bid generate -- Subroutine for add message.  Sees if Bid to be generated. *)
  10. (*===========================================================================*)
  11.  
  12. PROCEDURE bid_gen;
  13.  
  14.   BEGIN;
  15.  
  16.     WITH active_tcb^.curr_msg.msg_i_mb, opt_block DO
  17.       BEGIN;
  18.  
  19.         IF NOT bid_forced THEN
  20.           BEGIN;
  21.  
  22.             bid_is_dupe := FALSE;
  23.  
  24.             IF (msg_type = mt_private) AND ((msg_flag AND mf_fwd_list) = 0)
  25.                       AND (NOT opt_bid_for_p) THEN
  26.               EXIT;
  27.  
  28.             IF (msg_type = mt_nts) AND NOT opt_bid_for_t THEN
  29.               EXIT;
  30.  
  31.             IF (msg_type = ' ') AND ((msg_flag AND mf_fwd_list) = 0)
  32.                       AND (NOT opt_bid_for_blank) THEN
  33.               EXIT;
  34.  
  35.           END;
  36.  
  37.         msg_bid := bid_build_add(@active_tcb^.curr_msg.msg_i_mb, bid_is_dupe);
  38.  
  39.       END;
  40.  
  41.   END;
  42.